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11 
EDTSCHMSELPOS = test position of select range 1$- $ep-1984 00:11:27 AX-11 Bliss-32 V4.0-74 P 1) 
: ° 14- ~30 71387 99:3 22:46 teDT. SRCICHMSELPOS .BLI;1 ; ai (1) | 


.t9 00] 0 XTITLE *EDISCHMSELPOS - test position of select range’ | ; 
; ¢ 0 ¢ MODULE EDTSCHMSELPOS ! t position of getgce range : 
: Z st [DENT = *v04-000' ! File: CHMSELPOS.BLI Edit: J8S1005 ; 
to ea all 
: 4 0097 : i eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeereeereeeeteeeneeeneeeneeeeeeeeeeeeeee | : 
: ‘@ h P 
; 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 . | ; 
H 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * : 
i ou O01] 1 is ALL RIGHTS RESERVED ‘ | ; 
° . ® o 
H 8 $018 1 !® THIS SOFTWARE 4 FURNISHED wee A LICENSE AND MAY BE USED AND COPIED * | ; 
; 6 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * . 
ee i 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ; 
: 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHER WISE MADE AVAILABLE TO ANY * . 
: 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * . 
: 18 0018 | js TRANSFERRED. * | ; 
; '® * 3 
: 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
3 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
F $$ boss : :* CORPORATION. * . 
° .* ® Py 
; 24 boS¢ 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ® 2 
: $ #4 : :: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 2 
° . ® | ° 
Feee ia 0097 1 Ie * : 
3 28 0028 1 Naame eee eee RRR EEA RE RERAEAEEAE EEE E EE EEEE RE AAAAATEREAEREEEEEARE EE | : 
; @& ih 9 3 3 
ci. 0030 1 3 
; 0031 1 !++¢ 3 
; 32 4 1 ! FACILITY: EDT -- The DEC Standard Editor . 
$ 7 0033 1! : 
; 4 0034 1 ! ABSTRACT: 3 
: 0035 1! : 3 
3 Ha te) : : This module compares the current Line to the select range. : 
; $ sit : ENVIRONMENT: Runs at any access mode - AST reentrant 3 
i 40 0040 1 | AUTHOR: Bob Kushlis, CREATION DATE: Unknown ; 
; @& 0042 1 | MODIFIED BY: : 
: 43 004 1! : 
; «(46 0044 1 ! 1-001 - Original. DJS 04-Feb-1981. This module was created b 3 
; 645 0045 1! extract the routine EDTS$SEL_RNGPOS from module CHANGE.BLI. : 
: 646 0046 1 ! 1-002 - Re wi Be ze headers. JBS 03-Mar-1981 3 
s 67 0047 1 ! 1-003 - Make some minor edits, for esthetics. JBS 02-Jun-1981 F 
: 48 0048 1 ! 1=- 004 - Convert to new compare Line number macro. STS 20-Oct-1982 3 
; r+ rh : i 1-005 - Maintain select information until screen udpate is done with it. JBS 02-Dec-1982 : 
> 51 F 
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i EXTERNAL REFERENCES: 


In the routine 


7 
| 
EDTSCHMSELPOS EDTSCHMSELPOS - test position of select range 6-Sep- 4 7 AX-11 BLi 2 V4.0-74 Page 
vin ceslavettens . . 7-398: 1382 99: Hy rh feoT.sRedc Hee a 8 | 
; ; 3 } RSBTTL *Declarations’ | 
$ 4 ¢ : : TABLE OF CONTENTS: | 
e . } 
; 1 
: 88 037 1 REQUIRE 'EDTSRC:TRAROUNAM! ; | 
; i 
3 60 199 1 FORWARD ROUTINE | 
3 2 re } EDTSSSEL_RNGPOS; ' Compare the select Line with the current Line 
; «6 0500 1! 
: 64 $01 1 / INCLUDE FILES: 
3 65 5 § 1! 
; © 503 1 
4 67 504 1 REQUIRE "EDTSRC:EDTREQ'; | 
: 68 0639 1 
3 69 0640 1! 
: 70 0641 1 | MACROS: 
3 71 064 1! 
3 7 064 7s NONE 
3 7 0644 1! 
; 74 0645 1 ! EQUATED SYMBOLS: 
: 75 0646 1! 
3 76 0647 1! NONE 
3 77 0648 1! 
H 78 0649 1 ! OWN STORAGE: 
3 79 0650 1! 
s 80 0651 : NONE 
eo 1 i 
° 1 i 
: 1 
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EDTSCHMSELPOS MSELPOS = test position of select range hese -1984 00:11:27 AX-11 Bliss-32 V4.0-742 
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EL_RNGPOS = test position of select rang 14-Sep- EDT. SRCICHMSELPOS.BLI; 
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ZSBTTL ‘EDTSSSEL_RNGPOS = test position of select range’ 


3 1 

; 1 

; +4 : GLOBAL ROUTINE EDTSSSEL_RNGPOS ! Test position of select range 
3 = 

; 660 1 

; Wi 661 1 !+4+ 

3 bee : FUNCTIONAL DESCRIPTION: 

$ 94 0664 1! This Little routine returns a comparison between the select Line 

: £4 BOS? ! and the current Line as follows: 

. > - or 0667 1! -1 if the select is before the current Line or there is no select 
; «498 0666 1! 0 if it is on the current Line 

Se 0669 1! 1 if it is after the current line 

; 100 0670 1! 

; 101 0671 1! This is useful, because, when text is changed, the select position is 
3 19¢ bore : affected only if it is on or after the current Line. 

: 6104 0674 1 ! FORMAL PARAMETERS: 

: 105 0675 1! 

: 106 0676 1! NONE 

: 107 0677 1! 

; 108 0678 1 ! IMPLICIT INPUTS: 

; 109 0679 1! 

; 110 0680 1! EDTSSA_SEL_BUF 

3 111 0681 1! EDTS$A_OLD_SEL 

; M6 0682 1! EDTSSL_SEL_LN 

.. 068 1! EDTS$A_CUR_BUF 

s 116 0684 1! 

Bie ie 0685 1 ! IMPLICIT OUTPUTS: 

: 116 0686 1! 

s 117 0687 1! NONE 

3; «118 0688 1! 

: «119 0689 1 ! ROUTINE VALUE: 

; 120 0690 1! hs 

: 121 0691 1! -1 if the select is before the current Line or there is no select 

3 \¢¢ 0692 1! 0 if the select is on the current Line 

: 1 0693 1! 1 if the select is after the current line 

: 124 0694 1! 

s 125 0695 1 ! SIDE EFFECTS: 

3s 126 0696 1! 

s 27 0697 1! NONE 

3 1s8 pens , } 

: 1% $700 

3; 6131 0701 BEGIN 

; 136 tA 

; 13 70 EXTERNAL 

; 134 0704 EDTSSA_SEL_BUF, : Pointer to select buffer. 

3 135 0705 EDTSSL_SEL_LN : LN BLOCK ' Relative Line number of select. 
> 136 206 EDT$SA~CUR-BUF : REF TBCB_BLOCK, i The current buffer tbcb 

: it 14 44 EDTSSA_OLD_SEL; ! Pointer to old select buffer 
; 139 A IF ((.EDTSSA_SEL_BUF NEQA .EDTSSA_CUR_BUF) AND (.EDTSSA_OLD_SEL NEQA .EDTSSA_CUR_BUF )) 
: «141 711 RETURN (-1) ' No select in this buffer 

: 142 712 ELSE 


Page 


—s 


SCHMSELPOS EDTSCHMSELPOS = test position of select range ae -1984 AX-11 Bliss-32 V4.0-742 Page 4 
y04 EDTSScEL -RNGPOS = test position of select ee i 1 ~Sep-1984 99: 3}: 6 EDT. SRCICHMSELPOS .BLI;1 ’ (3) 

163 Ore RETURN (CMPLNO (EDTSSL_SEL_LN, EDTSSA_CUR_BUF CTBCB_CUR_LINJ)); 

145 715 END; ! of routine EDTS$SEL_RNGPOS 


-TITLE EDTSCHMSELPOS EDTSCHMSELPOS - test position of 
3 select range 
-IDENT \V04-000\ 


~EXTRN EDTSSA_SEL_BUF, EDTSS$L_SEL_LN 
-EXTRN EDTSS$ALCUR_BUF, EDTS$$A_OLD_SEL 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


0000 00000 -ENTRY peTssset “nt Save nothing ; 0658 
50 00000000G 00 00 BRE MOVL EDT$$A_COR_B » RO ; 0709 
50 000000006 00 01 0000 CMPL EDTSS$A_SEL_ -BUF. RO 3 
8 13 Boot BEQL 1$ 3 
50 000000006 00 01 0001 CMPL GS TSCA MOSEL. RO 3 
1¢ 12 +44 BNEQ $ 3 
51 000000006 00 3C 000186 1$ MOVZWL HIGH_1, R1 3 0713 
51 OA AO B81 00022 CMPW 10(RO), 3 
OF 1A 00026 BGTRU 2$ 3 
16 is B00 8 N 4$ 3 
51 00000000G 00 00 O002A MOVL LOW_1, R1 3 
06 AO 51 D1 09031 CMPL R1, 6(RO) : 
04 1€ 00035 BGEQU§ 3$ : 
50 01 CE 00037 2$ MNEGL #1, RO $ 
04 Q003A RET 3 
03 12 00038 3$ BNEQ 4$ 3 
50 D4 80030 CLRL RO 3 
04 B30 F RET 3 
50 01 00 oore 4$ MOVL #1, RO 3 
04 0004 RET ; 0715 
; Routine Size: 68 bytes, Routine Base: _EDTSCODE + 0000 
O76 1 
Tate 1 END ! of module EDTSCHMSELPOS 


1 !<BLF/PAGE> 
| 
| 


a el cl ll el cel cl el el cel el cee el el ell el cel eel eel eel nel cel eel cel cel eel eel cel el cel eel eel eel el eel cel cel eel cl eel el eel el cel el cea lt ls el lt lt cel ls cls sells cl ll 


un Time Bp: 4 :10.7 
pe Time: 0:12.6 
Lines/CPU Min: 405 
Lexenes/CPU-Rin: 13596 
paneer Used: 72 pages 
ilation Complete 


EDTSCHMSELPOS DISCHMSELPOS = test position of select range 18-5¢ 1984 00:11:27 AX-11 Bliss-32 yi 0-74 Page 5 
04-000 EDTSscer -RNGPOS = test position of select Fang 1 300-1382 99333380 EDT SRE ICH ASELPOS -BLI; “ (4) 
; 150 71 
$ 184 $720 0 ELUDOM | 
| 
; PSECT SUMMARY 
; Name Bytes Attributes | 
; -EDTSCODE 68 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
5 Library Statistics | 
Be ee ee eee ee ee Syabols socscee= Pages Processing 
: File Total Loaded Percent Mapped Time | 
: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 30 7 40 00:00.2 
: _$255$DUA28: - SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
} 
; COMMAND QUALIFIERS 
: ne ee ne een PNET EM. APT IRI ZED /MDTRACERACE/L LSM, ESS s CHNSELPOS/UR LOB I8 1 CHISEL POS MSRC$: CHMSELPOS .BLI/UPDATE=(ENH$:C 
Size: 68 code + 7 data bytes 
| 
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